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di PAOLO BAGNARESI 


-a- 

Tl 99/4A 

XEDITOR: EDITOR PER XASSEMBLE 


P ubblichiamo questo mese il pro¬ 
messo XEDITOR. che è l'EDITOR 
per comporre SORGENTI adatte 
ad essere assemblate con XASSEMBLE. 
Infatti, XASSEMBLE (assemblatore per 
EXTENDED BASIC con espansione di me¬ 
moria 32 K, sia laterale, tipo ESSEMME- 
0, sia contenuta nel PERIPHERAL BOX), 
pubblicato nei mesi di Marzo '85 e 
Maggio '85, permette l’assemblaggio di 
SORGENTI da file, cosa che con la MlNl- 
MEMORY non è possibile fare, o anche 
l'assemblaggio di SORGENTI battute di¬ 
rettamente da tastiera, come la MINI- 
MEMORY. È importante notare come sia 
preferibile comporre una SORGENTE 
con un EDITOR e poi farla assemblare 
ad un assemblatore (caso 1), piuttosto 
che immettere una dopo l'altra le istru¬ 
zioni da tastiera (caso 2). Nel primo ca¬ 
so la SORGENTE non va persa durante 
l'assemblaggio; potremo così variarla 
successivamente, correggerla, adattarla 
a nuove e diverse esigenze con il mini¬ 
mo di fatica. Nel secondo caso la SOR¬ 
GENTE va invece persa durante l'assem¬ 
blaggio: ogni successiva correzione non 
e più possibile e. se il programma cosi 
composto si dimostra inadatto durante 
il «RUN» (leggi «CALL LINK...»), occorre 
ribatterlo per intero. Si consiglia calda¬ 
mente, pertanto, di usare l’XEDlTOR 
proposto questo mese, non appena la 
sorgente supera le 10-20 istruzioni. 


XEDITOR è in linguaggio BASIC (versione 
EXTENDED). 

È consigliabile il possesso dell'espansio¬ 
ne di memoria, anche se il programma 
può funzionare anche senza espansio¬ 
ne. In quest'ultimo caso, tuttavia, i files 
generabili sono veramente limitati. In 
ogni modo, una CALL FILES (1) permet¬ 
te la creazione di files più lunghi. 

CARATTERISTICHE 
DI XEDITOR 

1 ) Schermo a 32 colonne, colore cele¬ 
ste. caratteri in bianco, ogni linea testo 
può essere al massimo di 28 caratteri. 

2) Cursore al centro, sulla 12esima ri¬ 
ga. Serali normale di una riga con EN- 
TER. Possibilità di serali dello schermo di 
23 righe in blocco, sia in alto, che in 
basso. 

3) Ulteriore possibilità di serali in alto e 
in basso del numero di righe desidera¬ 
te. 

4) Possibilità di evidenziare il numero di 
riga a fianco di ciascuna riga-testo. Se¬ 
gnalazione perenne del numera di riga 
attualmente sotto il cursore e dell'ulti¬ 
mo numero di riga del record. 

5) Opzione di spostamento di una o 
più righe all'interno del file. 

6) Possibilità di cambiare automatica- 
mente un determinato segmento di 
stringa di testo su tutto il file, con un'al¬ 
tro segmento selezionabile da parte 


dell'utente, e ciò per tutte le volte che 
il primo segmento è presente nel testo. 
È la «Replace String» dell'EDlTOR/AS- 
SEMBLER. 

7) Inserimento facilitato di nuove righe- 
testo (Insert). 

8) Cancellazione di una o più righe a 
piacere (Erase). 

9) OLD e SAVE sia da cassetta che da 
disco. 

10) Possibilità di MERGE TOTALE di un 
file esterno nel file attualmente in me¬ 
moria (come l’EDITOR/ASSEMBLER), e, 
anche, di un MERGE PARZIALE, cosa che 
neppure l'EDITOR/ASSEMBLER Texas è in 
grado di fare. È una funzione che si ri¬ 
trova solo nel TI-WRITER Texas. Queste 
due funzioni sono usabili sia con disco 
che con cassetta. 

11) Opzione di OLD e SAVE PARZIALE, 
sia per disco che per cassetta. Anche 
questa opzione è presente solo nel TI- 
WRITER. 

12) Stampa eventuale del file, con pos¬ 
sibilità di stampa anche dei numeri di li¬ 
nea, cosa che neppure il TI-WRITER è in 
grado di fare. 

Si può facilmente intuire, da quanto 
elencato, che XEDITOR è veramente 
molto versatile: ha delle funzioni (MER¬ 
GE PARZIALE. SAVE e OLD PARZIALE), 
che neppure l'EDITOR/ASSEMBLER Texas 
possiede, e che. detto per inciso, sono 
molto comode. 


100 !*********************** 

110 !* XEDITOR 

120 ! *PAOLO BAGNARESI 5.1985 

130 ! * Tel. (02)-514.202 

140 ! *********************** 

150 ‘ Iniziaii:zazione 

160 OPTION BASE O :: MX=629 
:: DIM Q*(630>:: DE*="C" :: 
FE*="V" :: ON ERROR 1290 

170 SHLI=0 :: C*="~LC=" :: V 
AL*="UDNLRMISOEF" :: ST*="RS 
232.BA=4800.DA=8" :: SL*="N" 
:: CALL CLEAR :: RIG1=20 s: 
RIG2=23 

180 L*=RPT*<CHR*<131),28): : 

I*=RPT$(CHR*(132).28): : CALL 
CHAR<129,"8080808080808080" 
,130,"OlOtOlOlOlOlOlOJ". 131, 
"OOOÒOOFF",132,"FF",133,"000 
OOOOOOOOOOOFF") 

190 CALL CHAR(140."004E50504 
E407000",141,"50545454547404 
07"):: C*=CHRS(140): : UL*=CH 
R* ( 1 4 1 > 


200 K*=RFT*(CHR*<133),28): : 
CALL SCREEN(6): : FOR T=0 TO 
14 :: CALL COLOR(T,16,6): : N 
EXT T 

210 ' Display SCHERMO DI ENT 
RATA 

220 DISPLAY AT(1,1):I«: :TAB 
(11);"XEDITOR": :L*:“ 1985 P 
aolo Bagnaresi M?(P":L*:"Ge 
nera files assemblabi1i":"co 
n XASSEMBLER. Il file" 

230 DISPLAY AT<10,1):"genera 
to e' stampabi1 e.”:L$:"FCTN 
X abilita gli speci als":L*: 
"FCTN E da' scroi 1 in su'":L 
*:"ENTER accetta la linea":L 
i 

240 DISPLAY AT(18,2):C$;"=Li 
nea sotto Cursore":L*:" ";UL 
*;"=Ultima Linea file":L* 

250 FOR T=1 TO 24 :: CALL VC 
HAR(T,2.130.1): : CALL VCHAR< 
T,31,129,1): : NEXT T :: GOSU 
B ì 260 


260 DISPLAY AT<18,1):"Fi 1 e N 
uovo o Vecchio? (N/V)";FE*:L 
* :: ACCEPT AT(18.28)VALIDAT 
E <"NV")SIZE(-1)BEEP:FE$ :: I 
F FE*="V" THEN 1030 

270 CALL CLEAR :: RIG1=1 :: 
RIG2=3 

280 1 ROUTINE PRINCIPALE EDI 
TOR 

290 FOR T=24+(I>MX—12)*(I—MX 
+12)TO 12-R STEP -1 :: DISPL 
AY AT(T,1):0*(I+T-12): : NEXT 
T :: DISPLAY AT(1,24):C*;1+ 
1 :: DISPLAY AT<2,24):UL*;TO 
P+l :: IF SHLICO THEN GOSUB 
1230 

300 IF I>MX—12 THEN CALL HCH 
AR<13+MX—I,1,32,32*(I-MX+12) 
) 

310 ACCEPT AT(12,1)SIZE(—28) 
:Q* <I): : CALL KEY(0,K,S):: I 
=1+1 :: IF I>MX THEN I=MX 

320 TOP=MAX(TOP,I): : R=(I<11 
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>*-I-MI>10)*-U :: IF K=10 T 
HEN 340 ELSE IF K=1 1 THEN 33 
0 ELSE 290 

330 GOTO 1200 

340 DISPLAY AT(1,1)DEEP:"U <p 
or D(own, Nili ne. L(ine"s"R 
(eplace. Mlove, I(nsert"s"S< 
ave. 0(10, E(rase,F(ine ":M* 
:L* 

350 RIG1=1 :: RIG2=3 :: ACCE 
PT AT(3, 27)VALIDATE(VAL*)SIZ 
E(-1)BEEP:M* :: IF M*<>"L" 7 
HEN 380 

360 DISPLAY AT(1, 1 ) : " 

Linee scrol1": 'Quante in gi 
u'? (Ex. 7)":"Quante in su’? 
(Ex.-7): ": 0* :: GOSUB 1240 

370 ACCEPT AT(3,25)SIZE(-4)V 
AL IDATE(DIGIT," +- " >BEEP:O* : 

: IF 0*="" THEN 1210 ELSE SC 
=VAL(OS): : GOTO 510 

380 IF M*="" THEN 1210 ELSE 
ON POS(VAL*.M*.1)+1 GOTO 290 
,480,500,530,510,560,670,400 
.780,1020,440,1320 

390 • INSERISCE LINEE 

400 DISPLAY AT(1.1):"Inser. 
linee da lin. cursore":"Quan 
te linee? : "sSERT*: : :s GO 
SUB 1240 :: ACCEPT AT(2,17)V 
ALI DATE(DIGIT)SIZE(-3)BEEP:S 
ERT* 

410 IF SERT*=”" THEN 340 ELS 
E SERT=VAL(SERT*) 

420 FOR W=MAX(TOP.I>TO 1-1 S 
TEP -1 :: Q*(W+SERT)=Q*<W>: : 
NEXT W :: FOR T=0 TO SERT-1 
:: Q*(I—1+T)=”" :: NEXT T : 
: TOP=TOP+SERT :: GOTO 1210 

430 ' CANCELLA UNA O PIU ' LI 
NEE 

440 DISPLAY AT(1,1):"Erase 1 
inee da linea cursore":"Una 
o piu' linee ? : ";NLI*: : 

:: GOSUB 1240 

450 ACCEPT AT(2,23)SIZE(-3)V 
AL I DATE(DIGIT)BEEP:NLI * :: I 
F NLI*="" THEN 1210 ELSE NL= 
VAL(NLI*): : IF NL+I-1>T0P TH 
EN NL=TOP—I+1 

460 NL=NL*-(NL>0): : FOR W=I- 
1+NL TO MAX(TOP,I): : Q*(W-NL 


)=Q*(W): : NEXT W :: FOR T=W- 
l-NL TO W—1 :: 0*(T)="" :: N 
EXT T : : TOP=TOP-NL : : GOTO 
1200 

470 ! MOSTRA LO SCHERMO A LI 
NEE PIU' BASSE 

480 1=1-22 :: GOTO 1200 

490 ! MOSTRA LO SCHERMO A LI 
NEE F’IU ' ALTE 

500 SC=23 

510 I=I+SC+1 :: GOSUB 1220 : 

: GOTO 1200 

520 ! MOSTRA NUMERI DI LINEA 

530 SHLI=SHLI =0 :: IF SHLIO 
O THEN 1210 

540 FOR T=24 TO 12-R STEP -1 
:: CALL VCHAR(T,2, 32,1): : N 
EXT T :: GOTO 1210 

550 ! REPLACE STRING 

560 DISPLAY AT(1,1):"Replace 
String: /Old/New/ ":L*:RP*: 
L*: : :: ACCEPT AT(3,1)SIZE( 

-28)BEEP:RP* :: IF RP*="” TH 
EN 340 ELSE CALL HCHAR(5,1,3 
2.640):: ANS=0 

570 P1=P0S(RP*,"/",1): : IF P 
1=0 THEN 560 ELSE P2=P0S(RP* 
IF P2=0 THEN 56 
O ELSE P3=P0S(RP*,"/",P2+1): 
: IF P3=0 THEN 560 

580 RP1*=SEG*(RP*.PI +1. P2-P1 
-1):: RP2*=SEG*(RP*.P2+1 , P3- 
P2-1): : I=SAL 

590 FOR 1=0 TO TOP :: P4=P0S 
(Q*(I),RP1 *,1): : IF P4=0 THE 
N 640 ELSE R=(I<11)*-I +(I>10 
>*-11 

600 FOR T=24 TO 12-R STEP -1 
:: DISPLAY AT(T,1):Q*(I+T-l 
2):: NEXT T :: DISPLAY AT<1, 
21): C* ; I +1 :: CALL HCHAR(12, 
P4+1,30) 

610 IF ANS=1 THEN 630 ELSE D 
ISPLAY AT(1,1):L*:RP*:"Rep1 a 
ce? CS/N/AO 1 /B( asta 3 " ; AN*: 

L* 

620 ACCEPT AT(3,28)SIZE(—1>V 
ALIDATE("SNAB")BEEP:AN* :: I 
F AN*="N" THEN 640 ELSE IF A 
N*="B" THEN 650 ELSE IF AN*= 


"A" THEN ANS=1 

630 Q* (I)=SEG*(Q*(I),1,P4-1 ) 
&RP2*&SEG* (Q* (I ). P4+P2-P1 -1, 
LEN(Q*(I))): : O*(I)=SEG*(0*< 
I ),1,28) 

640 NEXT I 

650 I =SAL+1 :: GOTO 1210 

660 1 MUOVE LINEE 

670 DISPLAY AT(l,l):"Da Riga 
a Riga e";CHR*(30):C*:I;UL* 
:TOP+1:"mette dopo Riga :";M 
NR*:"Ex 4,6,23 Riga 4-5-6 do 
po 23" :: IF SHLI=0 THEN 1=1 
-1 :: GOSUB 1230 :: 1=1+1 

680 GOSUB 1240 :: ER=-2 :: A 
CCEPT AT(2,18)BEEP SIZE(-ll) 
VALIDATE(DIGIT,","):MNR* :: 
IF MNR*="" THEN 760 ELSE CAL 
L S(MNR*,T,MN1.MN2,VE*,ER) 

690 IF ER>0 THEN 680 ELSE MN 
3=VAL(VE*)—1 

700 TOF-MAX(TOP, I>: : IF MN1< 
MN3 AND MN3<MN2 OR MNl>TOP+l 
OR MN2>T0F+1 OR MN3>T0P+1 0 
R MN1<0 OR MN2<0 OR MN3<0 TH 
EN 680 

710 SF-MN2-MN1+1 :: FOR T=0 
TO SP-1 :: Q*(TOP+T+1)=0*(MN 
1+T): : NEXT T : : IF MN3<MN1 
THEN 740 

720 FOR T=0 TO MN3-MN2 : : 0* 
(MN1+T)=0*(MN2+T+1): : NEXT T 

730 FOR T=0 TO SP-1 :: 0*(MN 
3-SF+T+l>=0*(TOP+T+1 ): : NEXT 
T :: FOR T=T0P+1 TO TOP+SP 
:: Q*(T)="" :: NEXT T :: GOT 
0 760 

740 FOR T=0 TO MN1-MN3-1 :: 
Q*(MN2—T)=Q*(MN1 —T—1): : NEXT 
T 

750 FOR T=0 TO SP-1 :: O*(MN 
3+T+l)=Q*(TOP+T+1):: NEXT T 
:: FOR T=TOP+J TO TOP+SP :: 
Q* (T)="" :: NEXT T 

760 IF SHLIOO THEN 1200 ELS 
E 540 

770 ! SAVE ROUTINE : STAMPA. 
DISCO O CASSETTA 

780 DISPLAY AT(1,1):L*:"Regi 
stra su Disco, Cassetta,":"o 
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ERRATA CORRIGE E PRECISAZIONI 


1) A pag. 119 dei numero 51 di m&p 
(marzo '85), al punto 2), è sottinteso 
che si debba fare una SA VE dopo la 
CALL LINK («RILOC»). Il programma così 
salvato sarà fatto oggetto di OLD al 
punto 4). «ORA ESEGUITE UNA OLD DI 
LINEA 25000». La cosa non è stata ovvia 
per molti lettori, e forse proprio non lo 
è! Mille scuse per la svista. 

2) A pag. 120 dello stesso numero, l’in¬ 
dirizzo ESAdecimale che porta alla BLO- 
AD non è > FD8C, come segnalato, ma 
> FD90. Tuttavia, l'indirizzo decimale 
fornito è esatto. 

3) Nello stesso numero 51. tutte te vol¬ 
te che si cita SPOLINEXT. si intende il 
programma SPOLIN in formato CALL LO- 
AD per EXT. BASIC. 

4) A pag. 86 del numero di 53 (maggio 
85). a! punto 2) RESTOR MOVB s LOAD. 


CS1PAB si deve leggere: RESTOR MOVB 
®LOAD. ®CS1PAB. E stato omesso il sim¬ 
bolo ® prima di CS1PAB. 

5) A pag. 87, nello stesso numero 53, 
al punto 7) SINTASSI, non tenere conto 
degli esempi riportati. Essi sono stati al¬ 
terati in sede di impaginazione. Il con¬ 
cetto semplice che si voleva esprimere 
è che non ci deve essere più di uno spa¬ 
zio né tra LABEL e ISTRUZIONE, né tra 
ISTRUZIONE e OPERANDO. 

6) Per una svista tipografica, il listato 
XASSEMBLE apparso a pag. 91 dello 
stesso numero di Maggio é mancante 
di 7 caratteri, relativi alla linea 380. Di 
nuovo scuse. Questa é la linea 380 
completa: 

380 IF INS< > " •’ THEN IF SECS( 

INS, LEN (INS), 1)= " " THEN INS 


-SEGS (INS, 1. LEN (INS) - 1):: CO 
TO 380 

7) Se assemblate un secondo file con 
XASSEMBLE, sappiate che, se avete ri¬ 
sposto N alla domanda REF? nel primo 
file, non avrete più disponibili le REF nel 
secondo file. Se le REF sono proprio ne¬ 
cessarie, occorre uscire dal programma 
e poi rientrare. Salvo particolari ragioni 
(vedi sotto al punto 8). evitare di rispon¬ 
dere N alla domanda REF. 

8) Assemblando un file con XASSEMBLE, 
ed utilizzando l'opzione «COPY», verrà 
di nuovo chiesto REF? (S/N). Occorre ri¬ 
spondere N (MAIUSCOLO), altrimenti 
tutti ì LABEL definiti nel file precedente 
vengono perduti. Chi volesse eliminare 
il rischio di una dimenticanza, modifichi 
la linea 300 inserendo all'inizio: IF 
INS< > «COPY» THEN... 


Stampa (D/C/S) "; DE* :: ACC 
EPT AT ( 3,18)VAL IDATE("DCS")S 
IZE < —1}BEEP:DE* 

790 IF DE*="" THEN 340 ELSE 
DISPLAY AT <1,1):C*;I;ULS;TOP 
+ 1 ; "Save, Devi ce? < ** ; DE*; ” ) " 
: L* 

800 ON POS<" DCS".DE*.1)GOTO 
780,850.850,930 

810 ! Save su cassetta 

820 OPEN #2:"CSI".FIXED 192, 
OUTPUT :: G*="” 

830 W*=STR* (LEN(Q*(Y)))&" "?< 
0*(Y): : IF LEN(G*>+LEN(W*)< 1 
93 THEN G*=G*?<W* :: Y=Y+1 EL 
SE PRINT 42:G* :: G*=" n 

840 IF Q*(Y-1 ) = “ END" OR Q*( 
Y-l>=" COPY" OR Y>Z THEN PRI 
NT 42: G* :: CLOSE 42 :: GOTO 
290 ELSE 830 

850 DISPLAY AT <3, 1): TOT*:L* 
:: ACCEPT AT(3, 1)SIZE(-28)BE 
EP:TOT* IF TOT*="" THEN F 
SI*="N" :: GOTO 340 ELSE CAL 
L S(TOT*,RT1, RT2,RT3,DR*.ER) 
:: IF ER>0 THEN 850 ELSE IF 
DR*="" THEN FSL*="N" :: GOTO 
340 


860 IF RT1>—1 THEN 850 ELSE 
IF RT2>—1 THEN Y=RT2 :: Z=MI 


N(RT3,TOP)ELSE Y=0 :: Z=MAX( 
TOP,I) 

870 IF TQP=1 AND Q*(0)=”" AN 
D Q* < 1 ) = ■"• THEN 340 ELSE IF 
DE*="C" THEN 820 ELSE OPEN # 
1:DR*.OUTPUT 

880 FOR T=Y TO Z : : IF FSL* = 
"S" THEN PRINT 41 :T+1 ;TAB(7) 
;Q*(T)ELSE PRINT 41:Q*(T) 

890 IF 0*(T)=" END" OR 0*<T) 
=" COPY" THEN 910 

900 NEXT T 

910 CLOSE 41 :: FSL*="N" :: 
IF DE*="S" THEN ST*=TOT* : : 
TOT*=TEMP* : : GOTO 270 ELSE 
TEMP*=TOT* : : GOTO 270 

920 ! ROUTINE DI STAMPA 

930 DISPLAY AT(3,1)s"Stampa 
Numeri Linee ?<S/N) ":SL* :: 

ACCEPT AT(3,28)VAL IDATE("SN 
")SIZE(-1)BEEP:SL* :: IF SL* 
="S" THEN FSL*="S" 

940 DISPLAY AT<1,1):"OPEN:" 

:s TOT*=ST* : : GOTO 850 

950 1 Old Cassette 

960 OPEN 41:“CSI".INPUT ,FIX 
ED 192 

970 LINPUT 41 :G* 


980 LU*=SEG* (G*, 1, POS (G*. " 

,1)-1): : LULU=LEN(LU*): : LU= 
VAL(LU*): : 0*<Z>=SEG*(G*.LUL 
U+2.LU):: Z=Z+1 :: G*=SEG*(G 
*,LULU+2+LU,LEN(G*)) 

990 IF SEG*(Q*(Z-1),1,4)=" E 
ND" OR SEG*(Q*(Z-1),1,5)=" C 
OPY" THEN Z=Z-1 :: GOTO 1120 
ELSE IF RT2>-1 THEN Y=Y+1 : 

: IF Y<RT2+1 THEN Z=Z-1 ELSE 
IF Y>RT3 THEN Z=Z-1 :: GOTO 
1 120 

1000 IF SEG*(G*.1.1)=" " OR 
SEG* <G*,1,1)="" THEN 970 ELS 
E 980 


1010 ! OLD ROUTINE 

1020 DISPLAY AT(1,8):"Load F 
ile" 

1030 DISPLAY ATIRIGl,1):"Old 
Disk o Cass.? (D/C) ";DE*:L 
*:L* :: ACCEPT AT(RIG1,25)VA 
LI DATE("DC”)SIZE(-1)BEEP:DE* 
:: IF DE*="" THEN 340 

1040 IF DE*="" THEN 340 ELSE 
IF RIG1<20 THEN DISPLAY AT( 
PIGI—1.1)SIZE(17):C*;I:UL*;T 
OP+1 

1050 DISPLAY AT(RIG2.1): TOT* 
:K* :: ACCEPT AT(RIG2,1>SIZE 
(-28)BEEP:TOT* :: IF TOT*="" 
THEN 340 ELSE CALL S(TOT*,R 


m&p COMPUTFR 55 56 


67 




















Tl99/Afi 


T1,RT2,RT3,DR*.ER): : IF ER T 
HEN 1050 

1060 Y=0 :: FLG=0 :: XF RT1> 
-1 AND RT3-RT2+T0P >MX THEN D 
ISPLAY AT <20, 1 ) s L$: "Troppe r 
ighe : ma):";MXs", ma":"per M 
erge Righe max =";MX-T0PsL* 
:: GOTO 1050 

1070 IF RT1=—1 THEN Z=0 : : L 
W=MX :: GOTO 1090 ELSE Z=RT1 
+1 ss IF RT1>—1 AND RT2>-1 T 
HEN NT0P=T0P+RT3+1-RT2 ELSE 
RT2=0 : : NTOP=MX : : RT3=NT0P 
—1+RT2—TOP 

1080 LW=RT1+1+RT3+1-RT2 ss F 
OR T=0 TO T0P-RT1-1 ss Q*(NT 
OP-T)=Q*(TOF-T)s: NEXT T 

1090 TEMP*=TOT* ss IF DE*="C 
" THEN 960 ELSE OPEN #lsDR*, 
INPUT 

1100 ! Old da disco 

1110 LINPUT #lsQ*(Z)ss Q*<Z> 
=SEG*(0*(Z),1.28)ss IF E0F(1 
)THEN 1120 ELSE Z = Z+1 ss IF 
RT2C0 THEN 1110 ELSE Y=Y+1 s 
s IF Y<RT2+1 THEN Z=Z-1 ss G 
OTO 1110 ELSE IF Y>RT3 THEN 
Z=Z-1 ELSE IF Z >LW-1 THEN FL 
G= 1 ELSE 1110 

1120 IF RT1>—1 THEN 1160 

1130 FOR T=1 TO TOP-Z ss O*( 
Z+T)="" ss NEXT T ss TOP=Z 

1140 CLOSE #1 ss 1=13*-<RT1= 
-1)*— <T0P>13)+RT1+2#—(RT1>—1 
)ss CALL CLEAR ss RIG1=1 ss 
RIG2=3 ss GOTO 1200 

1150 ! Ri si stema dopo MERGE 

1160 0FS=RT3+1-RT2-(Z-RT1)s s 
IF OFS<1 THEN T0P=T0P+Z-RT1 
s s GOTO 1140 

1170 FOR T=0 TO T0P-RT1-1 ss 
Q*<Z+T+1)=G*<LW+T>ss NEXT T 
ss T0P=T0F'+Z-RT1 ! Ricompat 
ta le linee 


P+T)="" ss NEXT T ss GOTO 11 
40 ! Elimina elementi superi 
ori a TOP 

1190 1 ROUTINE LIMITI DISPLA 

Y AT 

1200 I=— <I>0)* <I — 1) 

1210 I=-<I>0)*(I-1)ss R=(I<1 
1)*-I+(I>10)*-11 ss TOP=MAX( 
TOP,I+l)i: CALL HCHAR(1,1,32 
,384-(R+l)*32)ss IF FLG=0 TH 
EN 290 ELSE FLG=0 s s GOSUB 1 
290 s s GOTO 290 

1220 1=(TOP+1)*—(I>TOP)+ 1*— < 
I<TOP)s s RETURN 

1230 FOR T=24 TO 12-R STEP - 
1 ss CALL VCHAR(T,2,ASC < SEG* 
<STR*<I+T-12+1),LEN(STR*( I + T 
-12+1)),1)),1)s s NEXT T s s R 
ETURN 

1240 CALL HCHAR<12,2,30> s s R 
ETURN 

1250 ! Premi un tasto 

1260 DISPLAY AT<22,1)BEEPsL* 
sTAB<5);"_ Premi un tasto 
s K* 

1270 CALL KEY <0,K,S)s s IF S= 
O THEN 1270 ELSE RETURN 

1280 ! Routine errori 

1290 ON ERROR 1300 ss RIG1=1 
ss RIG2=3 ss CLOSE 111 

1300 ON ERROR 1290 ss DISPLA 

Y AT<18,1)sLts"ERROREs OPEN, 
MEMORY FULL O"sTAB<10);"ALT 

RO"sL* ss GOSUB 1260 ss IF R 
IG1=1 THEN RETURN 340 ELSE R 
ETURN 170 

1310 ! Routine di FINE 

1320 DISPLAY AT<1.1)s"vuoi 1 
a Fine, Nuovo testo, "s"o Co 
ntinuare? (F/N/C)s "sFIN*s s 
ss ACCEPT AT <2,24)SIZE<—1)V 
AL IDATE <"FNC")BEEPs FIN* 


LSE IF FIN*="C" THEN 1350 

1340 FOR T=0 TO TOP ss Q*<T) 
= "" s s NEXT T s s TOP,I,R=0 

1350 GOTO 1210 

1360 ! Subprogramma smistarne 
nto istruzioni OLD, SAVE, MU 
OVE LINEE 

1370 SUB S<X*,R1,R2,R3,DR*,E 
R)ss ER=0 ss ON ERROR 1400 s 
s IF X*="” THEN 1400 

1380 F'1, F'2, P3=0 ss R1,R2,R3= 
-1 ss FOR T=1 TO LEN < X$)s s I 
F SEG*(X*.T,1)<>CHR*<32)THEN 
X*=SEG$<X*,T,LEN<X*))ss GOT 
0 1410 

1390 NEXT T ss GOTO 1410 
1400 ER=1 ss GOTO 1470 

1410 PI=POS(X*,",",1)ts IF P 
1=0 THEN 1460 ELSE P2=P0S<X* 
,",",Pl+l)ss IF P2>0 THEN P3 
=POS<X*, ", " , F'2+1 ) 

1420 IF P1>0 AND P2=0 AND P3 
=0 THEN R1=VAL<SEG*(X*,1,P1- 
1))-1 ss GOTO 1460 

1430 IF P1>0 AND P2>0 AND P3 
>0 THEN R1=VAL<SEG*(X*,1,P1- 
1))-1 ELSE 1450 

1440 R2=VAL<SEG*<X«,F'1 + 1,P2- 
Pl-1))-1 ss R3=VAL<SEG*(X*,P 
2+l,P3—P2—1)>—1 ss IF R3<R2 
OR R1<0 OR R2<0 THEN 1400 EL 
SE 1460 

1450 IF P1>0 AND P2>0 AND P3 
=0 THEN R2=VAL(SEG*<X», ^Pi¬ 
li )-l s: R3=VAL<SEG*<X*,P1+1 
,P2-P1-1))-1 si IF R3<R2 OR 
R2<0 THEN 1400 ELSE 1460 ELS 
E 1400 

1460 P4=MAX(PI,P2)ss P4=MAX< 
P4.P3)s s IF P4=0 THEN DR*=X* 
ELSE DR*=SEG*(X*,F'4+1,LEN<X 
*) ) 

1470 ON ERROR 1290 ss SUBEND 


1180 FOR T=1 TO OFS ss 0*<T0 


1330 IF FIN*="F" THEN 1480 E 


1480 END 


Per contro, manca in XEDITOR la possi¬ 
bilità di trattare opportunamente le 80 
colonne in sede di stampa. XEDITOR 
non è inteso come normale WORD- 
PROCESSOR, ma come EDITOR dedicato 
a files da assemblare. 


CARATTERISTICHE 
DEL FILE GENERATO 

Il file generato da XEDITOR è DISPLAY/ 
VARIABLE 80, se su disco, è DISPLAY/FI- 
XED 192 se su cassetta. Il formato DIS/ 
VAR 80 per disco è il formato normale 


per TI-WRITER e per EDITOR/ASSEMBLER 
Texas. I files su disco generati da XEDI- 
TOR sono quindi scambiabili con quelli 
generati dai due suddetti moduli: nota¬ 
re, però, che XEDITOR tronca ogni re¬ 
cord al ventottesimo carattere. Il file su 
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cassetta è invece compatibile solo con 
XASSEMBLE. Infatti in questo file. DI¬ 
SPLAY FIXED 192, il testo viene compat¬ 
tato in maniera molto particolare, per 
risparmiare tempo durante il SAVE 
(OUTPUT) e la OLD (INPUT). Ogni record 
del file al momento di una SAVE CSI. 
contiene: 

1) Lunghezza, sotto forma di stringa, 
della stringa che segue. 

2) Un byte vuoto (codice ASCII 32). 

3) La stringa effettiva, la cui lunghezza 
è indicata al punto 1. 

4) Lunghezza della seconda stringa. 

5) Altro byte vuoto. 

6) Seconda stringa. 

Si continua così fino a che lo spazio resi¬ 
duo nel record non è sufficiente a con¬ 
tenere la triade 

LUNGHEZZA 4- SPAZIO + STRINGA. 

A questo punto le nuove stringhe ven¬ 
gono immesse nel record FIXED 192 
successivo. Vedi listato righe 820-840. 
Ciò che in pratica si ottiene è l'equiva¬ 
lente di un file VARIABLE, con la stessa 
caratteristica di compattamento. Al 
momento della OLD. si ricerca innanzi 
tutto il primo spazio vuoto (ASCII 32). Al 
byte precedente termina la lunghezza 
della stringa che segue. Si calcola la lun¬ 
ghezza della stringa [ LU = VAL (LUSO) ]. 
e si ottiene la restituzione della stringa 
originaria [ Q$(Z) = SEG$(GS.LU- 

LU + 2.LU) ). La parte letta viene tolta 
dal record. ( GS = SECS(G$.LU- 
LU + 2 + LU.LEN(GS) ) e si continua co¬ 
me sopra fino a che il record è finito 
(SEGS(CS.I.l)-" "OR SEG$(G$.1,1) = " 
"]. Vedi listato righe 960-1000. 

Il compattamento descritto offre il van¬ 
taggio di poter processare mediamente 
12-13 righe con una sola PRINT o IN¬ 
PUT. Ciò. in cambio, riduce di 10 volte il 
tempo necessario per le operazioni di 
file su cassetta, che. come noto, sono 
lunghe e tediose, e impiegano la massi¬ 
ma parte del tempo perché la testina 
del registratore arrivi alla posizione del 
successivo record del file sul nastro. 

La routine presentata è utile se le strin¬ 
ghe passate su nastro sono tutte molto 
corte (istruzioni ASSEMBLER sono me¬ 
diamente di 8-15 caratteri). Sarebbe 
inutile se le stringhe da salvare fossero 
tutte, ad esempio, di 80 caratteri, co¬ 
me nel caso dì un normale WORD-PRO¬ 
CESSOR: in questo caso la routine de¬ 
scritta non farebbe risparmiare alcun 
tempo. 

USO DI XEDITOR 

Dare il RUN. Si presenta lo schermo 
principale e appaiono dei simboli: 

1) LC: indicherà il numero di linea del 
file che è attualmente sotto cursore. 


2) UL: indicherà l’ultimo numero di li¬ 
nea del file. 

Apparirà una domanda: File Nuovo o 
Vecchio? (N/V) V. In caso di risposta 
«N» si passa direttamente all’EDlTOR ve¬ 
ro e proprio. Con una risposta «V». inve¬ 
ce, viene chiesto se l'iNPUT del Vecchio 
file deve avvenire da disco o da casset¬ 
ta: OLD DISK o CASS.? (D/C) C. 

Scegliere secondo le proprie esigenze. 
Il cursore si posizionerà quindi su una ri¬ 
ga completamente vuota. Inserire qui 
CSI oppure DSK1. NOMEFILE, ove NO- 
MEFILE va cambiato con il nome effetti¬ 
vo del file che si intende usare e preme¬ 
re ENTER. Il file verrà caricato in memo¬ 
ria. 

In ogni caso, sia che abbiate scelto Vec¬ 
chio file o Nuovo file vi troverete poi al 
quadro EDITOR vero e proprio. 

Il cursore sarà posizionato al centro del¬ 
lo schermo (dodicesima riga). Avete a 
disposizione 28 caratteri per riga. Tutte 
le funzioni normali dell'edit sono abilita¬ 
te. Battete la vostra sorgente, riga dopo 
riga. 

Queste sono le funzioni dei tasti:1) Per 
passare alla riga successiva si preme EN¬ 
TER. Il cursore rimane sempre sulla stes¬ 
sa linea (la dodicesima) e tutto lo scher¬ 
mo effettua lo scroll verso l’alto. 

2) per ritornare sulla riga precedente 
tenere premuto FCTN E (freccia in su). 

3) Per abilitare le funzioni speciali tene¬ 
re premuto FCTN X (freccia in giù). 

FUNZIONI SPECIALI (SPECIALS) 

DI XEDITOR 

Scegliendo le funzioni speciali si apre 
una finestra in alto sul video, di tre ri¬ 
ghe. Appare così: 

U(p or D(own, N(line, L(ine 
R(eplace, M(ove. I(nsert 
S(ave, 0(ld. E(rase, F(ine 
Impostando la lettera maiuscola che 
precede il nome di una funzione e pre¬ 
mendo ENTER si attua la scelta della 
stessa funzione. Premendo FCTN 3 
(ERASE) e poi ENTER si ha il ritorno al 
quadro precedente. Quest’ultima rego¬ 
la vale anche per tutte le sotto-funzioni. 
Queste sono le spiegazioni delle funzio¬ 
ni speciali: 

Up: effettua lo scroll verso il basso di 23 
linee. Si ritorna cosi alle 23 linee prece¬ 
denti. 

Down: effettua lo scroll di 23 linee ver¬ 
so l'alto. Si raggiungono cosi le 23 linee 
successive. 

Nline: mostra il numero di linea delle li¬ 
nee presenti sullo schermo, se esse non 
erano visualizzate, ma le cancella dallo 
schermo se esse erano visualizzate, in 
pratica è un interruttore a «TOGGLE». 
accende se spento, spegne se acceso. I 


numeri di linea appariranno a fianco di 
ciascuna riga, nella colonna 2. Sono co¬ 
sì indicate solo le unità del numero di li¬ 
nea. Il valore delle decine ed eventuali 
centinaia va desunto dal numero della 
linea cursore (LC). che è sempre presen¬ 
te in alto a destra sullo schermo. 

Se Nline viene mantenuto «acceso» si 
allunga, ovviamente, il tempo necessa¬ 
rio per lo scroll. 

Line: Sposta del numero di linee richie¬ 
sto, verso le linee successive se si forni¬ 
sce un valore positivo, verso le prece¬ 
denti se si fornisce un numero di linee 
negativo. Ex. +7 fa apparire sotto il 
cursore la settima riga dopo quella che 
al momento è sotto il cursore. Oppure, 
- 7 fa apparire la settima riga che pre¬ 
cede quella che al momento è sotto il 
cursore. 

Replace. Rimpiazza una stringa (o seg¬ 
mento di stringa) dalla prima linea fino 
all'ultima. Apparirà: Replace string 
/OLD/NEW/. Mettere al posto di OLD la 
stringa che si vuol mutare e al posto di 
NEW la stringa che si vuol immettere al 
posto della vecchia e premere ENTER. 
Apparirà: /OLD/NEW/ 

Replace [S/N/A(11/B(asta) 

Inoltre, un carattere a forma di cursore 
si posizionerà a sinistra dell’inizio della 
stringa OLD in una linea del testo. Ora: 

1) S (per Si) farà cambiare la OLD con la 
NEW, e i caratteri eventualmente ecce¬ 
denti il 28esimo, nella nuova linea di te¬ 
sto cosi formata, saranno eliminati. 

2) N (per No) farà passare all’eventuale 
successiva. 

3) A (per All = TUTTI) innesca un proce¬ 
dimento automatico, per cui tutte le 
stringhe uguali alla OLD saranno cam¬ 
biate nella NEW, dalla prima all’ultima li¬ 
nea di testo. 

4) B (per Basta) determina l’uscita dal¬ 
l’opzione. 

Nota che solo la prima occorrenza della 
OLD in ogni linea viene proposta per lo 
scambio con la NEW. Se si vogliono 
cambiare anche le successive occorren¬ 
ze bisogna ripetere il procedimento. 

È da rimarcare che la REPLACE può esse¬ 
re vantaggiosamente impiegata per ri¬ 
cercare una determinata stringa in tut¬ 
to il testo. Allo scopo, immettere sia co¬ 
me OLD che come NEW la stessa strin¬ 
ga, per sicurezza, e poi iniziare la ricer¬ 
ca. premere N fino a che non si è trova¬ 
ta la linea di testo voluta. Guardare in 
che zona si trova, e poi premere B (per 
Basta). 

Move: Muove una linea, o un determi¬ 
nato numero di linee, da una zona ad 
un'altra del testo. Ex.: impostando 
4.7.2 e premendo ENTER si ottiene l'in- 
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serimento delle linee 4-5-6-7 tra la linea 
2 e la linea 3. 

Se si vuol spostare solo una linea, lo 
stesso numero va ripetuto. Ex. 
13,13,17 sposta la linea 13 e la mette 
dopo la linea 17. 

Nota: perché il formato dell'istruzione 
sia valido occorre sempre fornire tre va¬ 
lori numerici, separati tra di loro da due 
virgole. La stessa sintassi sarà poi neces¬ 
saria anche per la «OLD» e la «SAVE» 
(vedi). 

Inserti inserisce nuove linee vuote sotto 
la LINEA CURSORE. Il valore da fornire è 
il numero di nuove linee desiderate. 
Save: permette il SAVE del file su disco 
(D), cassetta (C). o su carta (S) (cioè 
Stampa). È possibile un SAVE totale (ex. 
CSI) oppure parziale, ex. 34, 45. CSI. 
In quest'ultimo caso solo le linee com¬ 
prese tra la linea 34 e la linea 45 saran¬ 
no salvate, incluse le due estreme (ov¬ 
vero la 34 esima e la 45 esima). 

Se si sceglie l’opzione (S). stampa su 
carta, si può anche far apparire il nume¬ 
ro di linea a fianco a ciascuna linea di 
testo (appare un'apposita opzione). 

Old: si può scegliere fra disco (D) o cas¬ 
setta (C): appare una linea vuota, nella 
quale potete inserire il nome del vostro 
file. Avete queste ulteriori opzioni: 

1) CSI oppure DSK?. NOMEFILE: carica 
il file indicato, che annulla quello prece¬ 
dentemente in memoria. 

2) 34. CSI oppure 34. DSK?. NOMEFI- 
LE: effettua il MERCE TOTALE fra il file in 
memoria e quello da caricare. Il file da 
caricare andrà a inserirsi tra la riga 34 e 
la seguente (riga 35). 

3) 17.52.CS1 oppure 17,52,DSK?. NO- 
MEFILE: carica il file indicato, a partire 


dalla linea 17 fino alla linea 52 inclusa. Il 
file presente in memoria viene annulla¬ 
to. 

4) 21,3,57,CSI oppure 21.3.57.DSK?. 
NOMEFILE: carica il file indicato a partire 
dalla linea 3 fino alla linea 57 inclusa e 
lo immette nel file presente in memo¬ 
ria, inserendolo tra la linea 21 e la se¬ 
guente (linea 22). Quest'ultimo forma¬ 
to permette cioè un MERCE PARZIALE 
(selettivo). 

Potete variare i numeri forniti negli 
esempi, ovviamente! 

Erase: cancella una o più linee, come in¬ 
dicato dal valore che fornirete, a partire 
dalla linea cursore. Il file in memoria vie¬ 
ne ricompattato. Nota: la stessa funzio¬ 
ne non può essere ottenuta con una ri¬ 
petuta azione del tasto FCTN 3. perché 
questo lascerebbe linee vuote dietro di 
sé nel file. 

Fine: si può scegliere in questa sede se- 
si vuole effettivamente finire, con il che 
si arriva alla END del programma, o si 
vuole un Nuovo testo, con il che il file 
presente in memoria viene cancellato, 
e si può ricominciare con un nuovo te¬ 
sto. Il file precedente viene irrimediabil¬ 
mente perso in entrambi i casi. Effet¬ 
tuate una SAVE in precedenza, se ciò 
che avete battuto sulla tastiera valeva 
qualcosa. Alternativamente, invece del¬ 
le due precedenti opzioni, si può conti¬ 
nuare con lo stesso testo. 

QUALCHE SUGGERIMENTO 

A) Il nome della stampante impiegata 
(valore DEFAULT) si trova a riga 170, ed 
è attualmente sistemata a «RS232. 
BA = 4800. DA = 8». Ognuno varia que¬ 


sto valore in accordo con la propria 
(eventuale) stampante. 

B) Non è presente nel listato una istru¬ 
zione ON BREAK NEXT, anche se sareb¬ 
be utile. La dimenticanza è solo appa¬ 
rente. È bene infatti che voi immettiate 
questa istruzione dopo che sarete certi 
di aver ottenuto una copia che «gira» 
perfettamente. Altrimenti al primo 
«RUN» potreste cascare in un ciclo sen¬ 
za uscita che vi obbligherebbe a spe¬ 
gnere il computer e, addio, lavoro ese¬ 
guito... 

La ON BREAK NEXT può essere conve¬ 
nientemente immessa a linea 160 del li¬ 
stato. 

C) lo. al vostro posto, non batterei all'i¬ 
nizio nessuna delle ON ERROR presenti 
nel listato. Esse si trovano alle seguenti 
linee: 160, 1290, 1300, 1370, 1470. Se 
le batterete, non capirete mai dove 
avete commesso eventuali errori di bat¬ 
titura e la ricerca degli errori è in queste 
condizioni perlomeno proibitiva. Solo 
quando sarete sicuri che tutto è OK, vi 
conviene immettere le ON ERROR ai nu¬ 
meri di linea suriportati (vedi il listato 
per la posizione esatta). 

D) XEDITOR funziona anche senza 
espansione di memoria. Chi però ha 
sempre l’espansione di memoria inseri¬ 
ta può aggiungere al listato la classica 
inibizione del FCTN QUIT. Un FCTN QUIT 
accidentale dopo ore di lavoro è una 
vera dannazione. Per coloro che ancora 
non conoscono come inibire il FCTN 
QUIT riportiamo la sequenza: 

CALL INIT:: CALL LOAD (-31806,16) 
Potrete inserire questa sequenza a linea 
160. 


SCHEMA 

DEL LISTATO A BLOCCHI 


100- 140 Intestazione 
150- 200 Inizializzazione 
210- 330 Routine principale di XEDITOR 
340- 380 Selezione Opzioni (SPECIALS) 
e scroll variabile 

390- 420 Inserimento nuove linee 

430- 460 Cancellazione linee 

470- 480 Scroll DOWN di 23 linee 

490- 510 Scroll UP di 23 linee e Scroll variabile 

520- 540 Mostra numeri di linea 

550- 650 Replace String 

660- 760 Muove linee 

770- 940 SAVE ROUTINE 

810- 840 Save su cassetta 


870- 910 Save su disco o su carta 
920- 940 Selezione Stampante 
950-1180 OLD ROUTINE 
950-1000 Old cassette 
1010-1090 Selezione tipo di Old 
1100-1140 Old da disco 

1150-1180 Risistema file in memoria dopo il MERCE 
1190-1220 Limiti display at 
1230-1240 Visualizza numeri linee e cursore fermo 
1250-1270 Aspetta che tu prema un tasto 
1280-1300 Routine di errori 
1310-1350 Routine di FINE 
1360-1470 Smistamento istruzioni con virgole 
1480 Fine programma 
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ORGANIZZAZIONE DELLA MEMORIA DEL TI-99/4A 


A lcuni lettori chiedono ragguagli circa l'organizzazione 
della memoria del TI-99/4A. Forniamo le seguenti som¬ 
marie informazioni, desunte, perlopiù, dalla MILLER 
GRAPHICS, USA. e, poche per la verità, dalla personale espe¬ 
rienza del sottoscritto. 

Il microprocessore TMS9900 è capace di indirizzare diretta- 
mente 64 kbytes di memoria (CPU RAM). Inoltre, nel Tl- 
99/4A, sono state previste delle memorie «esterne», indiriz- 
zabili indirettamente a mezzo di «porte di accesso». Queste 
memorie esterne sono: 

1) VDP RAM, size 16 kbytes. Indirizzi utili: minimo >0000, 
massimo >3FFF. È gestita dal TMS9918 in base ai comandi 
che riceve dal TMS9900. Le «porte di accesso» per la VDP si 
trovano agli indirizzi >9C02, >9C00, >8800 CPU RAM. 

2) GROM, size 18 kbytes nella consolle. Inoltre, nei Moduli 
(SSS) possono trovare posto ulteriori CROM, per altri 30 kby¬ 
tes. Il size totale delle memorie CROM ammonta così a 48 
kbytes. Indirizzi utili: 

CROM 0 da > 0000 a > 17FF: 

CROM 1 da >2000 a >37FF:-*GROM DELLA CONSOLLE 
CROM 2 da >4000 a >57FF: 


CROM 3 da >6000 a >77FF: 

CROM 5 da >8000 a >97FF: 

CROM 6 da > A000 a > B7FF:—GROM DEI MODULI 
CROM 7 da >C000 a > D7FF: 

CROM 8 da >E000 a > F7FF: 

3) SPEECH SINTETIZER: size 32 kbytes. Indirizzi utili: Minimo 
>0000, massimo >7FFF. 


Forniamo ora una mappa molto sommaria dei 64 k indirizza¬ 
ci direttamente dal TMS9900 nel TI-99/4A (CPU RAM). 
>0000-> 1FFF: 8 Interprete GPL, interprete BASIC (parte). 

K ROM 

>2000->3FFF: 8 Abilitata se si possiede la Expansion Me¬ 
le RAM mory da 32 K. È la LOW-MEMORY (me¬ 

moria BASSA). 

>4000->5FFF: 8 L'allacciamento con questa zona di me¬ 
le ROM moria avviene a mezzo di CRU (Commu- 

nication Register Unit). Sono banchi di 
memoria che risiedono nelle CARD da in- 


> 6000- > 7FFF: 8 
K ROM 


>8000->9FFF: 
100 bytes di 
RAM! 


serirsi nel PERIPHERAL EXPANSION BOX, 
quali il DISK CONTROLLER CARD, la RS232 
CARD. 

È la classica zona delle ROM dei moduli (e 
della piccola RAM della MINI-MEMORY). 
Alcuni moduli hanno «impaginato» in 
questa zona più banchi di memoria, per 
un totale di 12 K, vedi il Modulo Ext. BA¬ 
SIC, o di 16 K, vedi alcuni moduli ATARI. 
Esatto, solo 100 bytes di RAM. È il famoso 
SCRATCH-PAD, l'unica e sola area di lavo¬ 
ro. multiuso, che tutti i moduli senza 
espansione possono usare. 

Credetelo pure, per questi ultimi non ci 
sono altre zone RAM «DIRETTAMENTE» 
impiegabili. Per ogni ulteriore fabbisogno 
di RAM essi si devono servire della VDP 
RAM (memoria «INDIRETTA»), così come 
fa il TI BASIC in qualunque configurazione 
esso venga impiegato. 

L'indirizzo della SCRATCH-PAD si trova tra 
> 8300 e > 83FF. 

Tutto il resto dell'area tra >8000 e 


> 9FFF è pressoché vuoto. Contiene solo 
le «PORTE DI ACCESSO» a: 

1) VDP RAM 

2) CROM 

3) SPEECH SINTETIZER 

> A000- > FFFF: Abilitata se si possiede la Exp. Memory da 
24 kbytes 32 K. È la HIGH MEMORY (memoria ALTA). 

MODULI E GROM: UNA LOTTA ALL'ULTIMA ASTUZIA 

Tutti i Moduli SSS marcati TEXAS devono avere perlomeno 
una CROM. Moduli con una sola CROM sono: MINI-MEMORY, 
EDITOR/ASSEMBLER, TI-WRITER, DISK-MANAGER, MULTIPLAN, 
etc... Alcuni moduli hanno quattro GROM (vedi Modulo Exten- 
ded BASIC) e altri ancora hanno tutte le 5 possibili GROM (ve¬ 
di EARLY READINC). 

Generalmente, i moduli delle case indipendenti non hanno in¬ 
vece CROM (vedi ATARI). Questo fatto ha determinato la pro¬ 
duzione della consolle di tipo 1983 V2.2, rilasciata dalla TE¬ 
XAS INSTR. Poco prima di uscire definitivamente dal mercato 
del TI-99/4A, con il preciso scopo di far piazza pulita dei con¬ 
correnti. La consolle 1983 V2.2 è capace di rifiutare i moduli 
che non contengono CROM, quindi, in pratica, di impedire 
l’uso dei moduli ATARi e ATARI simili. Per superare questo 
nuovo ostacolo introdotto dalla Texas Instr., sono stati escogi¬ 
tate diverse soluzioni, quali il «CROMBUSTER» della NAVARO- 
NE INDUSTRIES, USA. Niente a che vedere con «GOSTBU- 
STERS», anche se si può obiettare che i «fantasmi» delle 
CROM ci disturbano ancora. Il GROMBUSTER, attaccato sul 
fianco del computer, permette l’utilizzo dei moduli privi di 
CROM anche con le consolle 1983 V2.2. 

Peccato che la Texas abbia cessato la produzione del Tl- 
99/4A. Ero curioso di vedere quale sarebbe stata la mossa 
successiva della Texas in questa fine lotta all'ultima protezio¬ 
ne. 

PICCOLA MAPPA DI MEMORIA, MODULO EXT 
BASIC INSERITO + EXP. MEM. 32K 


SEZIONE CPU RAM 
Locaz. Contenuto 

>2000 >205A 

>2002 >24F4 


>2004 > 4000 

>2006 >AA55 


Puntatore alla CALL LINK-DEF NOME. È 
sempre usato per l’ingresso diretto in un 
programma in L.M. da CSALOCO, e poi ri¬ 
pristinato al suo normale valore (>205A 
è. in bytes decimali 32,90). >2000 è 
8192 dee. 

Inizio di caricamento (DEFAULT) di un 
programma in L.M. generato da XASSEM- 
BLE o di qualsiasi file assembler DIS/FIX 
80, privo di AORG, caricato da dischetto 
subito dopo la CALL INIT. Dopo il carica¬ 
mento la locazione a >2002 conterrà 
l’indirizzo della prima locazione LIBERA 
per un successivo caricamento di un 
eventuale ulteriore programma in L.M. 
Ex: se il primo programma era > 102 by¬ 
tes, dopo il caricamento in > 2002 trove¬ 
rete >25F6. 

Questa locazione contiene >4000 subi¬ 
to dop il CALL INIT, poi punterà all’ULTI- 
MO WORD LIBERO in BASSA MEMORIA, 
prima dell’inizio della DEF TABLE. 
IDENTIFICATORE PER L’ABILITAZIONE DI 
PROGRAMMI IN L.M.: se diverso da 
>AA55 non saranno più abilitate le CALL 
LOAD e le CALL LINK (occorrerebbe re-ini- 
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>2008 

>23FF 

> 24FO >0000 

>24F2 >0000 

>24F4 

> 3FF7 

> 3FF8 


> 3FFF 

SEZIONE VDP RAM 

> 0000- > 02FF 


>0300->03F7 


> 0380- > 077F 


ziaie la memoria bassa con una CALI 
INIT. con il che tutto il contenuto della 
memoria da > 2000 fino a > 26FF sareb¬ 
be perso). Non modificare quindi il valore 

> AA55 per nessun motivo. 

UTILITIES VMBW, VSBW, VWTR, VMBR, 
VSBR, KSCAN, STRREF. NUMREF, STRASC. 
NUMASC. Nota: mancano in EXT. BASIC 
tre routines in MACRO-ASSEMBLER: 
CPLLNK. DSRLNK, LOADER. 

Dovrà contenere l’indirizzo di inizio di 
programma per un «CSAVE» valido in 
XASSEMBLE. Questa locazione è ignorata 
dalle routines TEXAS. 

Dovrà contenere l'indirizzo di fine pro¬ 
gramma per un «CSAVE»» valido in XAS¬ 
SEMBLE. Anche questa locazione è igno¬ 
rata dalle routines TEXAS. 

> 24F4- > 3FF8 è la massima estensione 
di un programma valido da generarsi con 
XASSEMBLE. Qui risiederà il programma 
che creerete. La prima locazione utile, 
per un programma senza AORC sarà 
quindi >24F4, l’ultima >3FF7. 

> 3FF8 - > 3FFF è la minima estensione 
della DEF 1ABLE, per un valido CSAVE con 
XASSEMBLE. Ovvero, è lo spazio occupato 
da una sola DEF. Ogni DEF aggiunta oc¬ 
cuperà altri 8 bytes verso il basso, e spo¬ 
sterà quindi verso il basso di 8 bytes il 
puntatore all’ULTIMA MEMORIA UBERA, 
che si trova a >2004. Degli 8 bytes oc¬ 
cupati da ogni DEF, 6 bytes sono utilizza¬ 
ti per il nome della DEF, gli altri due bytes 
sono utilizzati per contenere l'indirizzo a 
cui si riferisce la DEF in questione (punto 
di ingresso al programma). 


ZONA SCHERMO per Ext. BASIC, Ed/As¬ 
sembler, Minimemory. Sono 768 bytes. 
Se il VDP WRITE ONLV REGISTER 2 è diver¬ 
so da zero, la ZONA SCHERMO non è più 
tra >0000 e >02FF (vedi manuale 
Ed.Ass. pag. 327). 

SPRIIE ATTRIBUTE LIST per Ext. BASIC, Ed/ 
Assembler, se il VDP WRITE ONLV REGI- 
STER 5 contiene >06 (vedi Man. Ed/Ass. 
pag. 327). 

Contiene: posizione SPRITE (riga, colon¬ 
na). colore dello SPRITE, e. infine l’EARLV 
CLOCK, che determina la posizione dello 
SPRITE al fine della COINCIDENZA fra due 
SPRITES diversi. 

Valori interprete BASIC, PATTERN DE- 
SCRIPTOR TABLE e. anche, SPRITE DE- 
SCRIPTOR TABLE (zona DEFINIZIONE CA¬ 
RA! IERI) per l’Ext. BASIC (se il VDP WRITE 
ONLY REGISTER 4 contiene >00 e il VDP 
WRITE ONLY REGISTER 6 contiene >00). 
In Assembler, invece, questa zona è 
esclusivamente dedicata alla SPRITE DE- 
SCRIPTOR TABLE (se il VDP WRITE ONLY 
REGISTER 6 contiene >D0). 

Il TMS 9918 (Video Processore Grafico del 


TI-99/4A), deputato a tutti i mutamenti 
che avvengono in VDP RAM, visualizza 
un’immagine sul video nella seguente 
maniera: va a vedere l’ASCII contenuto in 
ognuna delle 768 locazioni della ZONA 
SCHERMO (tra > 0000 e > 02FF per il va¬ 
lore DEFAULT). Per ogni valore trovato va 
a cercare la definizione corrispondente (8 
bytes) nella PATTERN DESCRIPTOR TABLE 
(in questa tavola). 

Quindi, fa apparire sullo schermo video, 
nella colonna e nella riga indicata, la defi¬ 
nizione trovata nella PATTERN DESCRIP- 
TOR TABLE. 

Ex. La locaz. VDP RAM >0002 contiene 

> 80 (dee. 128). Gli 8 bytes interessati al¬ 
la definizione saranno a: > 80*8 * BASE. 
Ora, BASE è >0000 in Ext. BASIC (valore 
VDP WRITE ONLY REGISTER 4 moltiplicato 
per >800). Quindi, nell’esempio, si ha 
che >80*8+ >0000= >80*8= >400 
Ciò significa che il TMS9918 userà per la 
riga 1, colonna 3 (locaz. VDP >0002), la 
definizione contenuta tra >400 e >407 
VDP RAM. Se questi bytes sono tutti > 00 
avremo la visualizzazione di un BLANK 
(SPAZIO) a riga 1, colonna 3 dello scher¬ 
mo. Se invece, i bytes tra >0400 e 
>0407 VDP RAM sono diversi da zero, 
avremo la visualizzazione, sempre a riga 
1, colonna 3, di ciò che risulterà dalla 
nuova definizione. 

Valgono, allo scopo di ridefinire i caratte¬ 
ri, le definizioni usate a mezzo di CALL 
CHAR (A$) riportate a pag. 83 e segg. del 
manuale del TI-BASIC (Manuale di color 
verde pisello, in italiano, fornito insieme 
alla consolle dalla Texas Instr.). 

Per esempio, mettere a > 400 VDP que¬ 
sta successione di caratteri >FF, >00, 
>00, >00, >00, >00. >00. >00. fa¬ 
rà apparire una riga al posto di ogni spa¬ 
zio (ASCII >80, dee. 128) che sarà trova¬ 
to tra >0000 e >02FF VDP RAM. 

In Ext. BASIC gli ASCII dei caratteri in ZO¬ 
NA SCHERMÒ sono tutti aumentati di 
>60 (dee. 96). Questo permette lo spo¬ 
stamento dell'effettivo inizio della PAT¬ 
TERN DESCRIPTOR TABLE da >0000 a 

> 0400 VDP RAM e oltre. Ecco perché lo 
SPAZIO, (valore ASCII normale >20 (dee. 
32) ha in Extended BASIC il valore di > 80 
(dee. 128), che è dato da > 20 + > 60 di 
OFFSET. 

Se i valori ASCII non fossero aumentati 
dell’OFFSET di >60, si avrebbe un conflit¬ 
to tra la ZONA SCHERMO e la PATTERN 
DESCRIPTOR TABLE. Infatti la stessa zona 
di memoria VDP RAM (>0000->02FF 
dovrebbe contenere, allo stesso tempo, 
sia l'ASCII che la sua stessa definizione. 
Pensate ad un valore ASCII di >21 che si 
trovi a locazione > 108 VDP RAM (riga 9, 
colonna 8): la sua definizione dovrebbe 
iniziare a >21*8= >108 VDP RAM, ov- 
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> 0780- > 07FF 


vero nella stessa locazione che contiene il 
valore ASCII. La cosa è ovviamente impos¬ 
sibile. La Texas Instr. ha spostato la PAT¬ 
TERN DESCRIPTOR TABLE sopra i >400 
VDP RAM, in ambiente Ext. BASIC, per ri¬ 
sparmiare memoria VDP. che, non di¬ 
mentichiamo, è l’unica atta a contenere il 
programma Ext. BASIC se non si possiede 
l'espansione di memoria. 

SPRITE MOTION TABLE. Questa zona è de¬ 
putata al controllo delle velocità degli 
SPRITES. IL TMS 9918 (VIDEO PROCESSO¬ 
RE GRAFICO) non può utilizzare un’altra 
zona per la velocità degli SPRITES. Questo 
è il motivo per cui, a mio parere, non si 



possono avere SPRITES con movimento 

TESTO 

TEXT 

«ABAB» 


automatico in BIT MAP MODE. 

INIZ 

LI 

RO. >0002 

> 0800-> 081F 

COLOR TABLE in Extended BASIC, se il 


LI 

R3, TESTO 


VDP WRITE ONLY REGISTER 3 contiene 


LI 

R2,4 


>20. In Assembler la COLOR TABLE si tro¬ 


LOOP 

MOVB*R3 + ,R1 


va a >0380, in quanto il VDP WRITE ON¬ 


Al 

RI. >6000 


LY REGISTER 3 contiene >0E. 


BLWP 

«VSBW 

> 0820- > 08BE 

CRUNCH BUFFER. In Ext. BASIC questa zo¬ 

DEC 

R2 



na è usata per generare i TOKEN del BA- 


JNE 

LOOP 


> 08CO- > 095B 


> 095C- > 37D7 

> 37D8-> 3FFF 


SIC partendo dalle istruzioni delle linee di 
un programma BASIC al momento del¬ 
l’immissione delle stesse da tastiera. 
REDO BUFFER. Quando in Ext. BASIC, in 
modo COMANDO, premete REDO (FCTN 
8). riappare l’ultima istruzione immessa 
con ENTER. È da questa zona che viene 
prelevata la vecchia istruzione immessa. I 
valori ASCII di ogni carattere presente in 
questa zona sono aumentati di > 60. 
Nota che gli indirizzi di inizio e fine scher¬ 
mo, su cui deve riapparire la stringa si 
trovano rispettivamente a > 038C e 
>038E VDP RAM. 

ZONA PER STRINGHE E ARRAYS NUMERICI. 
ZONA DISK CONTROLLER PER CALL FILES 
0 )- 


VSBW, VMBW, VSBR, VMBR e OFFSET in Ext. BASIC. 

In Est. BASIC, la zona definizioni caratteri (PATTERN DESCRIP- 
TOR TABLE), come detto, inizia effettivamente a > 0400 VDP 
RAM (ASCII 32). Le routines MACRO ASSEMBLER VSBW. VMBW 
NON aggiungono l’OFFSET necessario al valore ASCII da im¬ 
mettere in VDP RAM. 

Per esempio, la seguente routine 
TESTO TEXT «ABAB» 

INIZ LI RO, >0002 

LI RI. TESTO 

U R2,4 

BLWP «VMBW 

non farà apparire la scritta «ABAB» (in alto a sinistra sullo 
schermo). Per ottenere una visualizzazione effettiva conviene 
non usare la VMBW, ma la VSBW, in questa maniera: 


Analogamente, non ci si può aspettare che una VMBR restitui¬ 
sca valori ASCII normali, infatti, essi saranno passati in CPU 
RAM così come essi si trovano in VDP RAM. e cioè aumentati 
di > 60. Una routine di questo genere permetterà di supera¬ 
re l’ostacolo. 

BSS 4 

LI RO, > 0002 

LI R3, BUFFER 

LI R2,4 

BLWP «VSBR 

Al RI,>A000 * decrementa di >60 il Most significant 
MOVB RI,*R3+ byte di RI 
DEC R2 
JNE LOOP 

Si possono costruire routines molto più veloci, ma gli esempi 
forniti sono sufficienti per comprendere il concetto dell'OF- 
FSET per i valori ASCII in VDP RAM con l’Ext. BASIC. 


BUFFER 

INIZ 


LOOP 


di LETIZIA BIZZARRI 


A nche se con un mese di ritardo, 
eccoci di nuovo qui. Sembra che 
la rubrica stia riscuotendo un di¬ 
screto successo, ma ho l’impressione 
che non sia ancora conosciuta dai pos¬ 
sessori di computer Sharp: spero che la 
voce si sparga, in modo da sentirvi sem¬ 
pre più entusiasti e numerosi risponde¬ 
re al mio appello, che vi ripeto qui: se 
avete qualche problema con il vostro 
Sharp, se avete scoperto qualche truc- 


- a - 

SHARP 

PARLIAMO DI SHARP 

chetto nuovo, se c’è un programma 
che non vi gira, scrivete pure: sono qui 
proprio per rispondervi, e queste pagi¬ 
ne diventeranno molto più vive e attuali 
con la vostra collaborazione. Come era 
prevedibile la parte del leone l’ha fatta 
l’MZ700: gli utenti di MZ80K/A/B mi vor¬ 
ranno perdonare se fin da questo nu¬ 
mero sempre maggior spazio sarà dedi¬ 
cato a questo computerino. 

Due sono le cose importanti delle quali 


volevo parlarvi prima di iniziare a tratta¬ 
re argomenti più strettamente tecnici: 
1) la creazione di un club di utenti 
Sharp per scambiare programmi; 2) il 
nuovo computer Sharp della serie 
MZ800. 

Parliamo di club: la lamentela più fre¬ 
quente che riecheggia fra gli sharpisti è 
la difficoltà a reperire del software. 
Dalla prossima volta sarò in grado di 
presentarvi e recensire il software com- 
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